home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbsub10.arc / INPUTDMO.ASC < prev    next >
Encoding:
Text File  |  1986-06-25  |  1.0 KB  |  34 lines
  1. 'INPUTDMO.ASC -- MSDOS QuickBASIC GetKeyInput test        25 June 86
  2. '        by David L. Poskie     (608) 274-9560
  3. '                  7118 Raymond Rd. Madison, WI 53719
  4. ' Please run any suggestions, corrections, additions, or changes by me.
  5. ' I can be messaged on all the major Madison, WI RBBS's.
  6.  
  7.     False = 0
  8.     True = NOT False
  9.  
  10. GOTO Start
  11.     REM    $INCLUDE: 'OMNI.SUB'
  12.  
  13. Start:
  14.     ' Set colors to your preference
  15.     COLOR 14 , 3 , 8
  16.     CLS
  17.     IsExtended = False
  18.     ' Tell the colors of the shaded input area
  19.     FG = 14     ' = color of hatching
  20.     BG = 3        ' = color of hatched area background
  21.     MG = 7        ' = color of input background
  22.     KeyMax = 12    ' # of characters to be input
  23.     Text$ = "Input filename.ext: "
  24.  
  25.     ' Need only X; Y will be calculated in subroutine
  26.     X = 10        ' Row #
  27.     GOSUB GetKeyInput
  28.     Temp$ = Text$
  29.     GOSUB GetUpperCase
  30.     PRINT : PRINT
  31.     Text$ = "You input : " + Temp$
  32.     GOSUB Center
  33. SYSTEM
  34.